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1-004 - Improve the appearance of the Listing. JBS 13-Jun-1983 


EDTSCHMBEGSEN = find the beginning of a sentenc 15- -$ep-1984 23:44:49 AX-11 Bliss-32 V4.0-74 Page 1 
ie “$20 1984 13:33:30 LeDT sRedcnmagestn:Bc 1: 0 a) 

; 1 1 Rryt *EDTSCHMBEGSEN = find the beginning of a pentenc e' 
3 § § EDTSCHMBEGSEN ( Find the beginning of a sentence 
: Z pDENT = *v04-000' File: CHMBEGSEN.BLI Edit: JBS1004 | 
; 5 5 BEGIN | 
: ? 4 ! PITITITILILILI LLL LLL LLL LLL LLL LLL LLL LLL LLL LLL LiL itil | 
$ '® 
s 9 8008 1 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 * | 
F 10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
3 \) Bot3 : - ALL RIGHTS RESERVED * 
° H % 
5 ig 0018 1 '* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copreD * 
= 014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
.- oe 0015 1 !* INCLUSION OF THE ABOVE copra eul NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 8018 1 Ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 17 001 1 !@ QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 13 dt ! ws TRANSFERRED. * 
3 ! * 
4 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 21 OOS) 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * | 
3 $§ 88 § : :* CORPORATION. ~ | 
3 'e 
: 24 ier 1 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; @& b95$ 1 Ie * 
4 27 0027 1 !* * 
: 28 0028 1 Seamer eee e eee eee ERE AE REAR AE EERE EEA AAA AERA EEA AAA AA REAR TERRE HERRERA 
D4 9 00 9 1 ! | 
; $9 $086 1 
; He 0031 1 !4¢ 
3 ¢ b03¢ 1 ! FACILITY: EDT -= The DEC Standard Editor 
[2 0033 1! 
3 $e ite 1 ! ABSTRACT: 
: 5 0035 1! y 
3 $$ ae : This module finds the beginning of a sentence. 
: M3 4 ! ENVIRONMENT: Runs at any access mode - AST reentrant | 
: 40 0040 AUTHOR: Bob Kushlis, CREATION DATE: Unknown 
.- <4 0042 1 | MODIFIED BY: | 
3; 6 0045 1! 
: (46 044 1 ! 1-001 - Original. DJS 04-Feb-1981. This module was created by 
s 65 45 1! extracti ng the routine EDT SSE ND -BSEN_ from module CHANGE.BLI. 
; 6 0046 1 ! 1-002 - Regular ze headers. +33 6 7-F @b-1981 
; 6 or 3 } 1-005 - Fix module name. JBS 02-Mar-1981 
; 1 i 
3 1 


9 
EDTSCHMBEGSEN EDTSCHMBEGSEN - find the beginning of a sentenc 18.52 -1984 44:49 AX-11 Bliss-32 ¥4.0-74 
TO 500 Declarations ° ° 1a-8ep-19 4 $3:53:39 Year SRE icAmBESSEN OL 10 


: ¢ 1 ! XSBTTL Declarations’ 

: 54 5 1 | TABLE OF CONTENTS: 

co: a , $3 

: 6 055 1 

: 036 REQUIRE ‘EDTSRC: TRAROUNAM'; 
: 59 496 1 FORWARD ROUTINE 

; & 39 1 EDTSSFND_BSEN : NOVALUE; ! Fiind the beginning of a sentence 
ae $6981 | 

: 6 500 1! INCLUDE FILES: 

Bea 

: 66 05 5 1 REQUIRE "EDTSRC:EDTREQ'; 
7 2 goss 1 | 

3 69 0640 ; MACROS: 

: o eee ft ute 

; e3 0644 ' EQUATED SYMBOLS: 

; 8 Bee 1 i _ 

cs oe 0648 1 | OWN STORAGE: 

: 78 0649 1! 

ies 6 ee 

: 81 065¢ | EXTERNAL REFERENCES: 

: B83 0654 1! In the routine 
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HMBEGSEN = find the beginni f “$ep-1984 23:44:4 AXx-1 4. 
f E n e beginning of a sentenc 18 Sep 138% $3:55:49 yax 18 y 


cove HMBEGSEN ijesne 
Vv FND_BSEN = find the beginning of a senten 14-Sep-19 DT. SRCJCHMBEGSEN 


5 ZSBTTL "EDTSSFND_BSEN = find the beginning of a sentence’ 


GLOBAL ROUTINE EDTSSFND_BSEN ! Find the beginning of a sentence 
: NOVALUE = 


oO 


WN OOCONGU Mme 


le4 
' FUNCTIONAL DESCRIPTION: 
Find the be 


S335. 


of a sentence. Scan backwards until we find 


ginotng 3 
a sentence delimiter, then include forward over the delimiter and 


5 1 

3 1 

3 1 

5 1 

3 9 1 

3 0 1 

3 4! : 

3 38 1! 

3 94 . § 

s 665 1! the <CR> or all spaces. 

5 38 006 1! 

H 9 66 1 ! FORMAL PARAMETERS: 

:; 98 Beek 1! 

; | 1! NONE 

; 100 0670 1! 

; 101 934 1 ! IMPLICIT INPUTS: 

; 19s ue 1! 

3: 10 +34 1! NONE 

> 104 674 1! 

3; 105 0675 1 ! IMPLICIT OUTPUTS: 

; 106 3678 1! 

: 107 0677 1! NONE 

; 108 0678 1! 

; 109 0679 1 ! ROUTINE VALUE: 

; 110 0680 1! 

: 111 0681 1! NONE 

3 it¢ peng 1! 

a 068 1 ! SIDE EFFECTS: 

: (114 0684 1! 

s 115 0685 1! NONE 

3; 6116 Bose . 3 

3; «117 0687 1 !-- 

; «118 0688 1 

3; (6119 0689 BEGIN 

3 130 0690 

s 121 0691 EXTERNAL ROUTINE 

; 122 069 EDTSSCS_LEFT, ' Move Left a character 
: 123 069 EDTSSFND_SENDLIM; ! Look for a sentence delimiter 
; 124 0694 

. tes 0695 '¢ ‘ ‘ 
: 126 2696 ' Scan back to a delimiter. 

3 : 7 eh t= 

i 158 099 

5 : : Ais BEGIN 

3 136 7 § IF ( NOT EDTSSCS_LEFT ()) THEN RETURN; 
a 70 

.-*? A END 

Z 136 A 5 UNTIL EDTSSFND_SENDLIM (1); 

s 5 09 1 END; ! of routine EDTSSFND_BSEN 


-TITLE EDTSCHMBEGSEN EDTSCHMBEGSEN - find the beginnin 
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GRLSGMTOESSEN  EpTEcwmaEGsEN ~ tind, the beptoning of agsentenc 1eSepctORs G5:sh:68  YMNCTL OL gsd2 y4 oo749 


-IDENT \V04-000\ 
-EXTRN EDTSSCS_LEFT, EDTSSFND_SENDLIM 
-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


0000 ENTRY EDTSSFND_BSEN, Save nothin 
000000006 90 00 FB 1: CALLS 40, gprSScs_tért 9 
C E BLBC. RO, 38 
1 Dd 0000¢ PUSHL ol 
000000006 09 + FB sft CALLS #1, EDTSSFND_SENDLIM 
5 $01 28 RET , 


; Routine Size: 25 bytes, Routine Base: _EDTSCODE + 0000 


138 0708 1 
139 0709 1 !<BLF/PAGE> 
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EDTSCHMBEGSEN EDTSCHMBEGSEN = find the beginning of a sentenc ib-se $1984 23:44:49 AX-11 Bliss-32 V4.0-74 P 5 
704~000 EDTSEPND BSEN - find the beginning of a senten 122808=1 9 $3:33:38 LEDT.sAe (ineesstn eu tsi na (4). 
; 161 710 1 END ' TSCH N | 
+ i a : E of module EDTSCHMBEGSE 
; (14 712 +O ELUDOM 

| 

| 
; PSECT SUMMARY | 
: Name Bytes Attributes | 
; _EDTSCODE 25 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC.ALIGN(2) 
; Library Statistics 
; eonesewe §yERO(§ secwee o~- Pages Processing 
; File Total Loaded Percent Mapped Time 
: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 0 0 40 00:00.2 
3 _$255$0UA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
3 COMMAND QUALIFIERS 


Size: 25 code + 0 data bytes 

Run Time: :09. 

Elapsed Time: 00:11. 

Lines/CPU Min: 3730 

Lexemes/CPU-Min: 12471 

ponery Used: 53 pages 
a 


| 

| 

| 
: Serre er Sueno DUNT EA, oAPT EAE EE 1 /UDTRACEOASE AL SOM. SOCAL SEE ER HOR IO ELISE STEN MSRCS$: CHMBEGSEN.BLI/UPDATE=(ENHS$:C 
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